Testing output of the coding.
## Loading the packages and setting adjustment
suppressMessages(source('function/libs.R'))## Read the datasets
## Refer to **Testing efficiency of coding.Rmd** at chunk `get-data-summary-table-2.1`
years <- seq(2011, 2015)
## Here I take the majority leagues setting profile which are "league-10-12"
## fMYPriceB = Back with vigorish price; fMYPriceL = Lay with vigorish price
## Here we term as Fair Odds
lProfile <- c(AH=0.10,OU=0.12)
mbase <- readfirmDatasets(years=years) %>% arrfirmDatasets(., lProfile=lProfile)
## In order to analyse the AHOU, here I need to filter out all soccer matches other than AHOU. (For example : Corners, Total League Goals etc.)
## the stakes amount display as $1 = $10,000
#'@ mbase$datasets[!(mbase$datasets$Home %in% mbase$corners)|!(mbase$datasets$Away %in% mbase$corners),]
dat <- mbase$data
dat %>% datatable(., caption="Table 2.1.1 : Firm A Staking Data",
extensions = list("ColReorder"=NULL,
"ColVis"=NULL,
"TableTools"=NULL #, "FixedColumns"=list(leftColumns=2)
),
options = list(autoWidth=TRUE,
oColReorder=list(realtime=TRUE), #oColVis=list(exclude=c(0, 1), activate='mouseover'),
oTableTools = list(
sSwfPath = "//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/swf/copy_csv_xls.swf",
aButtons = list("copy", "print",
list(sExtends="collection",
sButtonText="Save",
aButtons=c("csv","xls")))),
dom='CRTrilftp', scrollX=TRUE, scrollCollapse=TRUE,
colVis=list(exclude=c(0), activate='mouseover')))